home *** CD-ROM | disk | FTP | other *** search
- SET APPTITLE TO My Domain
- SET PROGFILES TO HKLM, Software\Microsoft\Windows\CurrentVersion, ProgramFilesDir, C:
- SET PROGMENU TO HKCU, Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders, Programs
- SET DESKTOP TO HKCU, Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders, Desktop
- SET INSTALLDIR TO %PROGFILES%\%APPTITLE%
- SET PROGGRP TO %APPTITLE%
- :GetInstallDir
- SET RESULT TO ASKDIR, "%INSTALLDIR%", Select Directory, "Please, select a folder for %APPTITLE%
- IF %RESULT%=CANCEL
- SET RESULT TO ASK, Setup, Are you sure to cancel installation?
- IF %RESULT%=YES
- ABORT
- ELSE
- GOTO GetInstallDir
- END
- END
- SET INSTALLDIR TO %RESULT%
- :GetProgGroup
- SET RESULT TO ASKGRP, %PROGGRP%, Select Program Group, "Please, select a program group for %APPTITLE%"
- IF %RESULT%=CANCEL
- SET RESULT TO ASK, Setup, Are you sure to cancel installation?
- IF %RESULT%=YES
- ABORT
- ELSE
- GOTO GetProgGroup
- END
- END
- SET PROGGRP TO %RESULT%
- SET SSETUPFOLDER TO %INSTALLDIR%\Setup
- SET UNINSTALL TO TRUE
- COPY MyDomain.exe TO %INSTALLDIR%
- LINK My Domain v1.00, %INSTALLDIR%\MyDomain.exe, %DESKTOP%
- LINK My Domain v1.00, %INSTALLDIR%\MyDomain.exe, %PROGMENU%\%PROGGRP%
- LINK Uninstall %APPTITLE%, %SSETUPFOLDER%\Setup.exe, %PROGMENU%\%PROGGRP%,-u %SSETUPFOLDER%\Uninstall.sss
-